home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World Interactive 1995 August / Personal Computer World (PCW Interactive) (August 1995).iso / demos / bio / bioforge / script / concntrl.scp < prev    next >
Text File  |  1995-02-22  |  8KB  |  762 lines
  1.  
  2. { CNT_BTN3_USE
  3. @Ç¢ PLAYER 
  4. I @Çä NOTIN -115 -45 THEN é 
  5.  
  6. M PUSH_BUTTON CONTINUE
  7. W 15
  8.  
  9.  
  10.  
  11. I ^Ç┐ = $üé THEN
  12. {
  13. @Ç║ `Çç $üê "COMPUTER: This is a restricted area./FZone interdite aux~personnes non autorisées./GZugang verboten" 
  14. é 
  15. }
  16. I ^çè OR ^Ç┐ != 1 THEN
  17. {
  18. @Çå `ÇÄ 
  19. é 
  20. }
  21. E 
  22. @Çå `Çì 150 -2048 
  23. I ^ä▓ = $ââ THEN J #Çü 
  24. I ^ä▓ = $âé THEN J #Çâ 
  25. :OPEN_DR4
  26. @Çì CNT_DOOR_OPEN
  27.  
  28. :TOP
  29. â 
  30.  
  31.  
  32. I @Ǽ CURFIG DR14 < 300 THEN J #Çé
  33.  
  34. :CLOSE_DR4
  35.  
  36. @Çì CNT_DOOR_CLOSE
  37.  
  38.  
  39. }
  40.  
  41. { OPENCNT_CR_BOT
  42. @Ç¥ OPENCNT
  43. }
  44.  
  45. { OPENCNT
  46. I ^ä▓ = $ââ THEN
  47. {
  48.  
  49. @Çì CNT_DOOR_OPEN
  50. :POT
  51. â 
  52. I @Ǽ CURFIG DR14 < 350 THEN J #Çå 
  53. E 
  54. {
  55.  
  56. @Çì CNT_DOOR_CLOSE
  57.  
  58.  
  59. }
  60. }
  61. }
  62.  
  63. { SUITTEST
  64. {
  65. I ^üè = 1 THEN
  66. {
  67. ^üè = 0
  68. @Çì HARDSUITMACHINE
  69. }
  70.  
  71.  
  72. : TEST
  73. â 
  74. I @Çá CURFIG SUITTEST < 300 THEN
  75. {
  76. J #Çê 
  77. }
  78.  
  79. ^üè = 1
  80. }
  81. }
  82.  
  83. { HARDSUITMACHINE
  84.  
  85. I @Ç¢ PLAYER THEN
  86. {
  87. A OFF
  88. o 
  89. }
  90.  
  91. E ! "Can't find Lex" 
  92.  
  93. @Ç¥ HARD_SUIT_CLOSE_CON
  94.  
  95. I @Ç⌐ LEX OR @Ç⌐ LEXMIR THEN
  96. {
  97. ù HARD
  98. .ÇéÇç = 100 
  99. ^ï╡ = 0 
  100. i LEX HARDSUIT
  101. @Ç¥ LEX_WOUNDS
  102. }
  103. E 
  104. {
  105. ù LEX
  106. @Ç¥ LEX_WOUNDS
  107. }
  108. @Ç¥ HARD_SUIT_OPEN_CON
  109.  
  110.  
  111. I @Ç¢ PLAYER THEN
  112. {
  113. A ON
  114. }
  115.  
  116. E ! "Can't find Lex." 
  117. }
  118.  
  119. { CR_REACTORMONITOR
  120.  "rtrc"
  121. m 
  122.  "bkga" 1
  123.  "rhdl" "REACTOR MONITOR/FCONTROLE REACTEUR/GREAKTOR MONITOR" 
  124.  "rsub" ""
  125.  "rsdb" ""
  126.  "rpdb" ""
  127.  "rpub" ""
  128.  "xitb" $Ç┤ "EXIT/FSORTIE/GZURÜCK"
  129. I ^êÇ THEN
  130. ê "rtrt" "react2"
  131. E 
  132.  
  133. j "rtrt" "reacto"
  134. :CONTROL_MONITOR_LOOP
  135.  
  136. â 
  137. J #Çï 
  138. :RPUB_REPEAT
  139. :RPUB_BUTTON
  140. @Çå `ü« 255 -1024 
  141. k "rtrt" $Ç║ 
  142.  
  143. J #Çï 
  144. :RPDB_REPEAT
  145. :RPDB_BUTTON
  146. @Çå `ü« 255 -1024 
  147. k "rtrt" $Ç╗ 
  148.  
  149. J #Çï 
  150. :RSUB_REPEAT
  151. :RSUB_BUTTON
  152. @Çå `ü« 255 -1024 
  153. k "rtrt" $Ç╛ 
  154.  
  155. J #Çï 
  156. :RSDB_REPEAT
  157. :RSDB_BUTTON
  158. @Çå `ü« 255 -1024 
  159. k "rtrt" $Ç┐ 
  160.  
  161. J #Çï 
  162. :XITB_BUTTON
  163. :ESCAPE_BUTTON
  164. @Çå `ü▓ 
  165.  
  166. }
  167.  
  168.  
  169.  
  170.  
  171.  
  172.  
  173.  
  174. { CR_HANGERMONITOR
  175. P ~ÇÇ 
  176. P ~Çü 
  177. P ~Çé 
  178. ~ÇÇ = 0
  179. ~Çé = 0
  180. ~Çü = 0
  181.  "hngr"
  182. :HANGER_ATTRACT
  183.  
  184. m 
  185.  "arga" 1
  186.  "hadl" $Ç│ "HANGAR DATA FILES/FFICHIER DATAS DU HANGAR/GFLUGDATEN"
  187.  "aidb" "ICARUS DATA/FDATAS ICARE/GICARUSDATEN"
  188.  "aiab" "ICARUS ACCESS/FACCES ICARE/GICARUS ZUTRITT"
  189.  "adlb" "HANGAR LOGS/FJOURNAL HANGAR/GFLUGLOGBUCH"
  190.  "axtb" $Ç┤ "EXIT/FSORTIE/GZURÜCK"
  191.  
  192. â 
  193. :HANGER_LOOP
  194.  
  195. â 
  196. J #Çÿ 
  197. :HANGER_LOGS
  198. m 
  199.  "hadl" "ICARUS FLIGHT LOGS/FCARNET DE BORD ICARE/GICARUS FLUGLOGBUCH"
  200. ê "hltt" "biketf" 60 80 110
  201.  "supb" ""
  202.  "sdnb" ""
  203.  "pupb" ""
  204.  "pdnb" ""
  205.  "hxtb" $Ç┤ "EXIT/FSORTIE/GZURÜCK"
  206.  
  207. â 
  208. ~Çé = 1
  209. ^üì = $üâ 
  210.  
  211. J #Çÿ 
  212. :HANGER_DATA
  213. m 
  214.  "ibsa" 1
  215. ê "istt" "bikesc" 60 80 110
  216. ~ÇÇ = @Çì FLASHING_BIKE
  217.  
  218.  "isub" ""
  219.  "isdb" ""
  220.  "ipub" ""
  221.  "ipdb" ""
  222.  "ixtb" $Ç┤ "EXIT/FSORTIE/GZURÜCK" 
  223.  
  224. â 
  225.  
  226. J #Çÿ 
  227. :AIDB_BUTTON 
  228. @Çå `ü¡ 
  229. J #ÇÜ 
  230. :AIAB_BUTTON 
  231. @Çå `ü« 
  232.  
  233. ~Çü = 1
  234. J #Ç▒ 
  235. :ADLB_BUTTON 
  236. @Çå `ü» 
  237. J #ÇÖ 
  238. :SUPB_REPEAT
  239. :SUPB_BUTTON
  240. @Çå `ü░ 
  241. k "hltt" $Ç╛ 
  242. J #Çÿ 
  243. :SDNB_REPEAT
  244. :SDNB_BUTTON
  245. @Çå `ü░ 
  246. k "hltt" $Ç┐ 
  247. J #Çÿ 
  248. :PUPB_REPEAT
  249. :PUPB_BUTTON
  250. @Çå `ü░ 255 1024 
  251. k "hltt" $Ç║ 
  252. J #Çÿ 
  253. :PDNB_REPEAT
  254. :PDNB_BUTTON
  255. @Çå `ü░ 255 1024 
  256. k "hltt" $Ç╗ 
  257. J #Çÿ 
  258. :HXTB_BUTTON
  259. @Çå `ü¡ 
  260. J #Çù 
  261. :ISUB_REPEAT
  262. :ISUB_BUTTON
  263. @Çå `ü░ 
  264. k "istt" $Ç╛ 
  265. J #Çÿ 
  266. :ISDB_REPEAT
  267. :ISDB_BUTTON
  268. @Çå `ü░ 
  269. k "istt" $Ç┐ 
  270. J #Çÿ 
  271. :IPUB_REPEAT
  272. :IPUB_BUTTON
  273. @Çå `ü░ 255 1024 
  274. k "istt" $Ç║ 
  275. J #Çÿ 
  276. :IPDB_REPEAT
  277. :IPDB_BUTTON
  278. @Çå `ü░ 255 1024 
  279. k "istt" $Ç╗ 
  280. J #Çÿ 
  281. :IXTB_BUTTON
  282. @Çå `ü▓ 
  283.  ~ÇÇ 
  284. ~ÇÇ = 0
  285. J #Çù 
  286. :AXTB_BUTTON 
  287. @Çå `ü░ 
  288. :ESCAPE_BUTTON
  289. @Çå `ü▒ 
  290. I ~Çé = 1 THEN
  291. i LEX BIKEMON
  292.  
  293.  ~ÇÇ 
  294. I ~Çü = 1 THEN
  295. {
  296.  
  297. @Ç¢ PLAYER
  298. A OFF
  299. W 20
  300. M WALK_BACK CONTINUE
  301. W 20
  302.  
  303. @Ç¥ LOWER_GARAGE_ELEVATOR
  304. }
  305. }
  306.  
  307. { CR_SATTELITE_MONITOR
  308.  
  309.  
  310.  "hngr"
  311. m 
  312.  
  313. ─ 329 219 
  314.  
  315.  
  316.  
  317.  "sbka" 1
  318.  "sadl" $Ç│ "MSS SATTELITE VIEW/FVUE SATELLITE MSS /GMSS SATELLITENKAMERA"
  319.  "sesl" "EXCAVATION SITE/FZONE DE FOUILLES/GAUSGRABUNG"
  320.  "sd1l" "DAEDALUS/FDAEDALUS/GDAEDALUS"
  321.  "sd2l" "BASE/FBASE/GSTÜTZPUNKT"
  322.  "spgl" "PASSAGE/FPASSAGE/GEINGANG"
  323.  "srtl" "RESTRICTED/FINTERDIT/GVERBOTEN"
  324. :SATTELITE_LOOP
  325.  
  326. â 
  327. J #Ç│ 
  328. :ESCAPE_BUTTON
  329. @Çå `ü▓ 
  330.  
  331. }
  332.  
  333.  
  334. [ FLASHING_BIKE
  335.  
  336.  
  337. :LOOP
  338. 00:00  "issa" 1
  339. 00:25  "issa" 2
  340. 00:27  "issa" 3
  341. 01:22  "issa" 2
  342. 01:24 ò 
  343. J #Ç╢ 
  344.  
  345.  
  346. ]
  347.  
  348.  
  349.  
  350.  
  351. { CR_MONITOR _CALLING_AREA
  352. P ~Çü 
  353. ~Çü = 0
  354.  
  355.  "conm"
  356. m 
  357.  
  358. I @Ç⌐ HARD THEN
  359.  "hrda" 1
  360.  "csub" ""
  361.  "csdb" ""
  362.  "cpdb" ""
  363.  "cpub" ""
  364.  "cxtb" $Ç┤ "EXIT/FSORTIE/GZURÜCK"
  365. N ~ÇÇ 
  366. {
  367. U $âÅ 
  368. {
  369. ~Çü = 1
  370. ê "cont" "parag"
  371. X ÇÇ 
  372. }
  373. U $âÉ 
  374. {
  375. ~Çü = 2
  376. ê "cont" "evac"
  377. X ÇÇ 
  378. }
  379. U $âæ 
  380. {
  381. ê "cont" "hist"
  382. X ÇÇ 
  383. }
  384. U $âÆ 
  385. {
  386. ê "cont" "arch"
  387. X ÇÇ 
  388. }
  389.  
  390. }
  391. :CONTROL_MONITOR_LOOP
  392.  
  393. â 
  394. J #Ç╕ 
  395. :CPUB_REPEAT
  396. :CPUB_BUTTON
  397. @Çå `ü▒ 
  398. k "cont" $Ç║ 
  399.  
  400. J #Ç╕ 
  401. :CPDB_REPEAT
  402. :CPDB_BUTTON
  403. @Çå `ü▒ 
  404. k "cont" $Ç╗ 
  405.  
  406. J #Ç╕ 
  407. :CSUB_REPEAT
  408. :CSUB_BUTTON
  409. @Çå `ü░ 
  410. k "cont" $Ç╛ 
  411.  
  412. J #Ç╕ 
  413. :CSDB_REPEAT
  414. :CSDB_BUTTON
  415. @Çå `ü░ 
  416. k "cont" $Ç┐ 
  417.  
  418. J #Ç╕ 
  419. :CXTB_BUTTON
  420. @Çå `ü▒ 
  421.  
  422. :ESCAPE_BUTTON
  423. @Çå `ü▓ 
  424. I ~Çü = 1 THEN
  425. i LEX PARGON
  426. I ~Çü = 2 THEN
  427. i LEX EVAC
  428.  
  429. }
  430.  
  431. [ HARD_SUIT_CLOSE_CON
  432. 00:00 ^éö = 1
  433. ^éò = 1
  434. @Çå `â¿ 
  435. ^Ç╝ = 1
  436. 00:04 ^éö = 2
  437. ^éò = 2
  438. 00:08 ^éö = 3
  439. ^éò = 3
  440. 00:12 ^éö = 4
  441. ^éò = 4
  442. 00:16 ^éö = 5
  443. ^éò = 5
  444. 00:20 ^éö = 6
  445. ^éò = 6
  446. 00:24 ^éö = 7
  447. ^éò = 7
  448. 00:28 ^éö = 8
  449. ^éò = 8
  450. 01:02 ^éö = 9
  451. ^éò = 9
  452. 01:06 ^éö = 10
  453. ^éò = 10
  454. 01:10 ^éö = 11
  455. ^éò = 11
  456. 01:14 ^éö = 12
  457. ^éò = 12
  458. 01:18 ^éö = 13
  459. ^éò = 13
  460. 01:22 ^éö = 14
  461. ^éò = 14
  462. 01:26 ^éö = 15
  463. ^éò = 15
  464. 02:00 ^éö = 16
  465. ^éò = 16
  466. 02:04 ^éö = 17
  467. ^éò = 17
  468. 02:08 ^éö = 18
  469. ^éò = 18
  470. 02:10 ^éö = 19
  471. ^éò = 19
  472. 02:12 ^éö = 20
  473. ^éò = 20
  474. 02:14 ^éö = 21
  475. ^éò = 21
  476. 02:16 ^éö = 22
  477. ^éò = 22
  478. 02:18 ^éö = 23
  479. ^éò = 23
  480. 02:20 ^éö = 24
  481. ^éò = 24
  482. 02:22 ^éö = 25
  483. ^éò = 25
  484. 02:24 ^éö = 26
  485. ^éò = 26
  486. 02:26 ^éö = 27
  487. ^éò = 27
  488. 02:28 ^éö = 28
  489. ^éò = 28
  490.  
  491. ] 
  492. [ HARD_SUIT_OPEN_CON
  493.  
  494. 00:00 ^éö = 28
  495. ^éò = 28
  496. @Çå `â¿ 
  497. 00:04 ^éö = 27
  498. ^éò = 27
  499. 00:08 ^éö = 26
  500. ^éò = 26
  501. 00:12 ^éö = 25
  502. ^éò = 25
  503. 00:16 ^éö = 24
  504. ^éò = 24
  505. 00:20 ^éö = 23
  506. ^éò = 23
  507. 00:24 ^éö = 22
  508. ^éò = 22
  509. 00:28 ^éö = 21
  510. ^éò = 21
  511. 01:02 ^éö = 20
  512. ^éò = 20
  513. 01:06 ^éö = 19
  514. ^éò = 19
  515. 01:10 ^éö = 18
  516. ^éò = 18
  517. 01:14 ^éö = 17
  518. ^éò = 17
  519. 01:18 ^éö = 16
  520. ^éò = 16
  521. 01:22 ^éö = 15
  522. ^éò = 15
  523. 01:26 ^éö = 14
  524. ^éò = 14
  525. 02:00 ^éö = 13
  526. ^éò = 13
  527. 02:04 ^éö = 12
  528. ^éò = 12
  529. 02:08 ^éö = 11
  530. ^éò = 11
  531. 02:12 ^éö = 10
  532. ^éò = 10
  533. 02:16 ^éö = 9 
  534. ^éò = 9 
  535. 02:18 ^éö = 8 
  536. ^éò = 8
  537. 02:20 ^éö = 7 
  538. ^éò = 7 
  539. 02:22 ^éö = 6
  540. ^éò = 6 
  541. 02:24 ^éö = 5 
  542. ^éò = 5 
  543. 02:26 ^éö = 4 
  544. ^éò = 4 
  545. 02:28 ^éö = 3 
  546. ^éò = 3 
  547. 03:00 ^éö = 2 
  548. ^éò = 2 
  549. 03:02 ^éö = 1 
  550. ^éò = 1 
  551. ^Ç╝ = 0
  552. ]
  553. [ CNT_DOOR_OPEN
  554. ^çè = 1
  555. @Çå `üé 
  556. 00:00 ^Ç╕ = 1
  557. 00:02 ^Ç╕ = 2
  558. 00:04 ^Ç╕ = 3
  559. 00:06 ^Ç╕ = 4
  560. 00:09 ^Ç╕ = 5
  561. 00:11 ^Ç╕ = 6
  562. 00:13 ^Ç╕ = 7
  563. 00:15 ^Ç╕ = 8
  564. 00:17 ^Ç╕ = 9
  565. 00:19 ^Ç╕ = 10
  566. 00:21 ^Ç╕ = 11
  567. 00:22 ^Ç╕ = 12
  568. 00:24 ^Ç╕ = 13
  569. 00:26 ^Ç╕ = 14
  570. 00:28 ^Ç╕ = 15
  571. 01:00 ^Ç╕ = 16
  572. 01:02 ^Ç╕ = 0
  573. ^çè = 0
  574. ^ä▓ = $âé 
  575. ]
  576. [ CNT_DOOR_CLOSE
  577. ^çè = 1
  578. @Çå `üé 
  579. 00:00 ^Ç╕ = 0
  580. 00:02 ^Ç╕ = 16
  581. 00:04 ^Ç╕ = 15
  582. 00:06 ^Ç╕ = 14
  583. 00:08 ^Ç╕ = 13
  584. 00:10 ^Ç╕ = 12
  585. 00:12 ^Ç╕ = 11
  586. 00:14 ^Ç╕ = 10
  587. 00:16 ^Ç╕ = 9
  588. 00:18 ^Ç╕ = 8
  589. 00:20 ^Ç╕ = 7
  590. 00:22 ^Ç╕ = 6
  591. 00:24 ^Ç╕ = 5
  592. 00:26 ^Ç╕ = 4
  593. 00:28 ^Ç╕ = 3
  594. 01:00 ^Ç╕ = 2
  595. 01:02 ^Ç╕ = 1
  596. 01:04 @Çå `üà 
  597. ^çè = 0
  598. ^ä▓ = $ââ 
  599. ]
  600. { HANGRMON_USE
  601.  
  602. I @Çä IN -125 135 THEN
  603. é 
  604. ^Ç╢ ++
  605.  
  606.  
  607. M LOOK_CONSOLE FREEZE
  608. @Ç¥ CR_HANGERMONITOR
  609. M STAND CONTINUE
  610. ^Ç╢ --
  611. }
  612. { SATMON1_USE
  613. I @Çä IN -135 135 THEN
  614. é 
  615. ^Ç╢ ++
  616.  
  617. £ SATLOC1 GRADUAL
  618. M LOOK_CONSOLE FREEZE
  619. @Ç¥ CR_SATTELITE_MONITOR
  620. M STAND CONTINUE
  621. ^Ç╢ --
  622. }
  623. { SATMON2_USE
  624. I @Çä IN -135 135 THEN
  625. é 
  626. ^Ç╢ ++
  627.  
  628. £ SATLOC2 GRADUAL
  629. M LOOK_CONSOLE FREEZE
  630. @Ç¥ CR_SATTELITE_MONITOR
  631. M STAND CONTINUE
  632. ^Ç╢ --
  633. }
  634. { ARCHLMON_USE
  635. I @Çä IN -90 180 THEN
  636. é 
  637. ^Ç╢ ++
  638.  
  639. £ ARCHLOC GRADUAL
  640. M LOOK_CONSOLE FREEZE
  641. @Ç¥ CR_MONITOR $âÆ 
  642. M STAND CONTINUE
  643. ^Ç╢ --
  644. }
  645.  
  646. { EVACMON1_USE
  647. ^Ç╢ ++
  648. I @Çä IN -150 -30 THEN
  649. {
  650. £ EVACLOC1 GRADUAL
  651. M LOOK_CONSOLE FREEZE
  652. @Ç¥ CR_MONITOR $âÉ 
  653. M STAND CONTINUE
  654. }
  655. ^Ç╢ --
  656. }
  657. { EVACMON2_USE
  658. ^Ç╢ ++
  659. I @Çä IN -150 -30 THEN
  660. {
  661. £ EVACLOC2 GRADUAL
  662. M LOOK_CONSOLE FREEZE
  663. @Ç¥ CR_MONITOR $âÉ 
  664. M STAND CONTINUE
  665. }
  666. ^Ç╢ --
  667. }
  668.  
  669. { EVCMON1_USE
  670. ^Ç╢ ++
  671. I @Çä IN -60 60 THEN
  672. {
  673. £ EVCLOC1 GRADUAL
  674. M LOOK_CONSOLE FREEZE
  675. @Ç¥ CR_MONITOR $âÉ 
  676. M STAND CONTINUE
  677. }
  678. ^Ç╢ --
  679. }
  680. { EVCMON2_USE
  681. ^Ç╢ ++
  682. I @Çä IN -60 60 THEN
  683. {
  684. £ EVCLOC2 GRADUAL
  685. M LOOK_CONSOLE FREEZE
  686. @Ç¥ CR_MONITOR $âÉ 
  687. M STAND CONTINUE
  688. }
  689. ^Ç╢ --
  690. }
  691. { HISTORYMON
  692. M LOOK_CONSOLE FREEZE
  693. @Ç¥ CR_MONITOR $âæ 
  694. M STAND CONTINUE
  695. ^Ç╢ --
  696. }
  697. { HISTMON1_USE
  698. I @Çä IN -135 135 THEN
  699. é 
  700. ^Ç╢ ++
  701. £ HISTLOC1 GRADUAL
  702. @Çì HISTORYMON
  703. }
  704. { HISTMON2_USE
  705. I @Çä IN -135 135 THEN
  706. é 
  707. ^Ç╢ ++
  708. £ HISTLOC2 GRADUAL
  709. @Çì HISTORYMON
  710. }
  711. { HISTMON3_USE
  712. I @Çä IN -135 135 THEN
  713. é 
  714. ^Ç╢ ++
  715. £ HISTLOC3 GRADUAL
  716. @Çì HISTORYMON
  717. }
  718. { PARAGMON_USE
  719. ^Ç╢ ++
  720. I @Çä IN -150 -30 THEN
  721. {
  722.  
  723. £ PARAGLOC GRADUAL
  724. M LOOK_CONSOLE FREEZE
  725. @Ç¥ CR_MONITOR $âÅ 
  726. M STAND CONTINUE
  727. }
  728. ^Ç╢ --
  729. }
  730.  
  731.  
  732. { MAINTMON_USE
  733. ^Ç╢ ++
  734. I @Çä IN -60 60 THEN
  735. {
  736.  
  737.  
  738.  
  739. £ MAINTLOC GRADUAL
  740. M LOOK_AT_MON FREEZE
  741.  
  742. @Ç¥ GR_MAINTENANCELOG
  743. M STAND CONTINUE
  744. }
  745. ^Ç╢ --
  746. }
  747. { REACTMON_USE
  748. ^Ç╢ ++
  749. I @Çä IN -60 60 THEN
  750. {
  751.  
  752. £ REACTLOC GRADUAL
  753. M LOOK_AT_MON FREEZE
  754. @Ç¥ CR_REACTORMONITOR
  755. M STAND CONTINUE
  756. }
  757. ^Ç╢ --
  758. }
  759.  
  760.  
  761. //$ 26 - version number
  762.